home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / WINER.ZIP / CHAP6-6.BAS < prev    next >
BASIC Source File  |  1992-05-13  |  650b  |  34 lines
  1. '*********** CHAP6-6.BAS - shows how to interpret BSAVE file headers
  2.  
  3. 'Copyright (c) 1992 Ethan Winer
  4.  
  5. DEFINT A-Z
  6.  
  7. TYPE BHeader
  8.   Header  AS STRING * 1
  9.   Segment AS INTEGER
  10.   Address AS INTEGER
  11.   Length  AS INTEGER
  12. END TYPE
  13. DIM BLHeader AS BHeader
  14.  
  15. OPEN "ARRAY.DAT" FOR BINARY AS #1
  16.   GET #1, , BLHeader
  17. CLOSE
  18.  
  19. IF ASC(BLHeader.Header) <> &HFD THEN
  20.   PRINT "Not a valid BSAVE file"
  21.   END
  22. END IF
  23.  
  24. LongLength& = BLHeader.Length
  25. IF LongLength& < 0 THEN
  26.   LongLength& = LongLength& + 65536
  27. END IF
  28.  
  29. NumElements = LongLength& \ 2
  30. REDIM Array(1 TO NumElements)
  31.  
  32. DEF SEG = VARSEG(Array(1))
  33. BLOAD "ARRAY.DAT", VARPTR(Array(1))
  34.